home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / REMPATH.INT < prev    next >
Text File  |  1989-07-08  |  435b  |  10 lines
  1. function remove_path(name: filenames): filenames;
  2. function path_only(name: filenames): filenames;
  3. function name_only(name: filenames): filenames;
  4. function remove_ext(name: filenames): filenames;
  5. function ext_only(name: filenames): filenames;
  6. procedure cons_path(var path: filenames;
  7.                     dir,name: filenames);
  8. procedure cons_name(var resu:          filenames;
  9.                     name1,name2,ext:   filenames);
  10.